home *** CD-ROM | disk | FTP | other *** search
/ mail.altrad.com / 2015.02.mail.altrad.com.tar / mail.altrad.com / TEST / office german / PROPLUS.WW / PROPLSWW.CAB / SERVWRAP.ASP < prev    next >
Text File  |  2002-08-07  |  938b  |  39 lines
  1. <%
  2. Set objData = CreateDOM
  3. objData.async = false
  4.  
  5. if (|0) then
  6.     Set objDataXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
  7.     objDataXMLHTTP.open "GET", "|1", false 
  8.     objDataXMLHTTP.setRequestHeader "Content-Type", "text/xml"
  9.     objDataXMLHTTP.send
  10.     objData.load(objDataXMLHTTP.responseBody)
  11. else
  12.     objData.load(Server.MapPath("|2"))
  13. end if
  14.  
  15. Set objStyle = CreateDOM
  16. objStyle.async = false
  17. objStyle.load(Server.MapPath("|3"))
  18. Session.CodePage = 65001
  19.  
  20. Response.ContentType = "text/html"
  21. Response.Write objData.transformNode(objStyle)
  22.  
  23. Function CreateDOM()
  24.     On Error Resume Next
  25.     Dim tmpDOM
  26.  
  27.     Set tmpDOM = Nothing
  28.     Set tmpDOM = Server.CreateObject("MSXML2.DOMDocument.5.0")
  29.     If tmpDOM Is Nothing Then
  30.         Set tmpDOM = Server.CreateObject("MSXML2.DOMDocument.4.0")
  31.     End If
  32.     If tmpDOM Is Nothing Then
  33.         Set tmpDOM = Server.CreateObject("MSXML.DOMDocument")
  34.     End If
  35.     
  36.     Set CreateDOM = tmpDOM
  37. End Function
  38. %>
  39.